home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Comms & Internet / LinkConverter 1.1.2 / Dialog Director v0.7 / Examples / Remember Pos.as < prev    next >
Encoding:
Text File  |  1998-01-12  |  754 b   |  16 lines  |  [TEXT/ToyS]
  1. property theDialog : {bounds:null, name:"?", style:movable dialog, contents:[¬
  2.     {class:push button, bounds:[190, 65, 250, 85], name:"OK", enabled:3}, ¬
  3.     {class:push button, bounds:[110, 65, 170, 85], name:"Cancel"}, ¬
  4.     {class:text field, bounds:[10, 36, 250, 36 + 16], name bounds:¬
  5.         [10, 10, 250, 26], name:"?", value:"?"}] ¬
  6.     }
  7.  
  8. if bounds of theDialog = null then set bounds of theDialog to dd calc dialog bounds [260, 95]
  9.  
  10. repeat with i from 1 to 5
  11.     set name of theDialog to "Remember Window Position " & i
  12.     set name of item 3 of contents of theDialog to "Enter item " & i & " of 5:"
  13.     set dlog to dd auto dialog theDialog
  14.     set bounds of theDialog to last item of dlog
  15.     if item 2 of dlog then exit repeat -- If user clicked Cancel then stop
  16. end repeat